home *** CD-ROM | disk | FTP | other *** search
- on enterFrame
- global experimenterMenu
- set ActiveStartspr to 3
- set correspondre to ActiveStartspr
- set startBalls to 4
- set seBrancherBall to startBalls
- set diffuserBall to startBalls + 1
- set correspondreBall to startBalls + 2
- set echangerBall to startBalls + 3
- set naviguerBall to startBalls + 4
- set courrierElectroniqueBall to startBalls + 5
- set startHighLightSpr to 10
- set courrierElectronique to startHighLightSpr
- set startHotSpot to 11
- set courrierElectroniqueHS to startHotSpot
- set ro to rollOver()
- puppetizeExclude(0, ro - (startHotSpot - startHighLightSpr), courrierElectronique, courrierElectronique)
- case ro of
- correspondre, correspondreBall:
- go(the frame)
- courrierElectroniqueHS, courrierElectroniqueBall:
- puppetSprite(courrierElectronique, 1)
- set the member of sprite courrierElectronique to member "courrierElectroniqueLight"
- updateStage()
- go(the frame)
- otherwise:
- depuppetize(courrierElectronique, courrierElectronique)
- updateStage()
- go("correspondreClose")
- end case
- end
-
- on exitFrame
- go(the frame)
- end
-